home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Fernseher.AMOS / Fernseher.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  670 b   |  28 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *           Fernseher V1.0          *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Hide 
  9. For A=0 To 4
  10.   Screen Open A,352,268,2,0 : Screen Hide 
  11.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  12.   Screen Display A,104,34,,
  13.   Palette $333,$CCC
  14.   ST=Logbase(0)
  15.   For B=1 To 22*268
  16.     Doke ST,Rnd($FFFF) : Add ST,2
  17.   Next 
  18. Next 
  19. A=0 : AA=0
  20. Do 
  21.   AAA=AA : AA=A
  22.   Repeat 
  23.     A=Rnd(3)
  24.   Until(A<>AA) and(A<>AAA)
  25.   Screen A
  26.   Sam Raw A,Logbase(0)+Rnd(256)*32,5120,27000
  27.   Screen Show : Screen To Front : Wait Vbl 
  28. Loop